home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1995 January / macformat-020.iso / Demos / MF20 / Word 6.0 / Microsoft Word 6.0 Demo / MS Mac Word Demo / 00114.ls < prev    next >
Encoding:
Text File  |  1994-08-11  |  2.2 KB  |  112 lines
  1. on startMovie
  2.   global gDebug, gSection, gDemoName, gcountMax, gCountLoops
  3.   set gDebug to 0
  4.   set gSection to "START"
  5.   set gDemoName to "Word"
  6.   set the keyDownScript to "whichKey"
  7.   set gcountMax to 150
  8.   set gCountLoops to 1
  9. end
  10.  
  11. on whichKey
  12.   global gDebug, gVersion, gSection
  13.   if the key = "1" then
  14.     set gSection to "ViewAll"
  15.     go("*ViewAll Transition")
  16.   end if
  17.   if the key = "2" then
  18.     set gSection to "EASY"
  19.     go("*EASY Transition")
  20.   end if
  21.   if the key = "3" then
  22.     set gSection to "GREAT PART"
  23.     go("*Great Part Transition")
  24.   end if
  25.   if the key = "S" then
  26.     if gSection = "MENU" then
  27.       go("*start transition")
  28.     end if
  29.     go("*start")
  30.   end if
  31.   if the key = "s" then
  32.     if gSection = "MENU" then
  33.       go("*start transition")
  34.     end if
  35.     go("*start")
  36.   end if
  37.   if the key = numToChar(32) then
  38.     pause()
  39.   end if
  40.   if the key = "P" then
  41.     pause()
  42.   end if
  43.   if the key = "p" then
  44.     pause()
  45.   end if
  46.   if the key = numToChar(27) then
  47.     if gVersion = "Reseller" then
  48.       if gSection = "QUIT SEQUENCE" then
  49.         GoToOffice()
  50.       end if
  51.     end if
  52.     if gSection = "QUIT SEQUENCE" then
  53.       quit()
  54.     end if
  55.     if gSection = "GREAT PART" then
  56.       go("*Menu")
  57.     end if
  58.     if gSection = "START" then
  59.       go("*Menu")
  60.     end if
  61.     if gSection = "EASY" then
  62.       go("*Menu")
  63.     end if
  64.     if gSection = "VIEWALL" then
  65.       go("*Menu")
  66.     end if
  67.     if gSection = "MENU" then
  68.       go("*Quit Sequence")
  69.     end if
  70.   end if
  71.   if the key = RETURN then
  72.     if the pauseState = 1 then
  73.       continue()
  74.     end if
  75.   end if
  76.   if the key = "M" then
  77.     go("*Menu")
  78.   end if
  79.   if the key = "m" then
  80.     go("*Menu")
  81.   end if
  82.   if the key = TAB then
  83.     if the shiftDown then
  84.       if marker(0) < label("*Start Again") then
  85.         beep()
  86.         go("*start")
  87.       else
  88.         go(marker(-1))
  89.       end if
  90.     end if
  91.     if the shiftDown = 0 then
  92.       go(marker(1))
  93.     end if
  94.   end if
  95. end
  96.  
  97. on MainMenuTimeout
  98.   global gCountLoops, gVersion, gSection
  99.   set gCountLoops to 1
  100.   if gVersion = "Reseller" then
  101.     GoToOffice()
  102.   end if
  103.   if gVersion <> "Reseller" then
  104.     set gSection to "ViewAll"
  105.     go("*ViewAll Transition")
  106.   end if
  107. end
  108.  
  109. on GoToOffice
  110.   go("*menu", "MS Mac Office Demo")
  111. end
  112.